home *** CD-ROM | disk | FTP | other *** search
/ Champak 114 / Vol 114.iso / games / y2k_tetr.swf / scripts / DefineSprite_204 / frame_20 / DoAction.as
Encoding:
Text File  |  2010-08-12  |  618 b   |  44 lines
  1. x1 = "1";
  2. while("10" >= x1)
  3. {
  4.    removeMovieClip(eval("dim" add x1 add "_" add row));
  5.    set("dim" add x1 add "_" add row,"");
  6.    x1 += "1";
  7. }
  8. t = row;
  9. while(t >= "1")
  10. {
  11.    x1 = "1";
  12.    t1 = t - "1";
  13.    while("10" >= x1)
  14.    {
  15.       set("dim" add x1 add "_" add t,eval("dim" add x1 add "_" add t1));
  16.       x1 += "1";
  17.    }
  18.    t -= "1";
  19.    x1 = "1";
  20. }
  21. while("10" >= x1)
  22. {
  23.    set("dim" add x1 add "_1","");
  24.    x1 += "1";
  25. }
  26. y1 += "1";
  27. if(c1 != "0")
  28. {
  29.    c1 += "1";
  30. }
  31. if(c2 != "0")
  32. {
  33.    c2 += "1";
  34. }
  35. if(c3 != "0")
  36. {
  37.    c3 += "1";
  38. }
  39. if(c4 != "0")
  40. {
  41.    c4 += "1";
  42. }
  43. gotoAndPlay(15);
  44.